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ORIGINAL 

SOFTWARE 

ENVIRONMENT 



10 



50 



TARGET 

SOFTWARE 

ENVIRONMENT 
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AREA LISTING 



RECORD 



640 



NAME 

AREA MIG-BCCN-AREA 

RECORD MIG-BCCN 

RECORD MIG-BCNENT 



ID 

1002 
1006 
END OF REPORT 
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'RECORD NAME MIG-BCCN 

RECORD VERSION 0001 

^RECORD ID 1002 

RECORD LENGTH FIXED 

LOCATION MODE CALC USING 

WITHIN 

DBKEY POSITIONS . . , 

650 



— SCHEMA RECORD 
RLGTH= 325 
DLGTH= 269^ 
KLGTH= 56 
DSTRT= 56 
MIG-BCCN-NUMBER 



DESCRIPTION 

645 



LISTING — 



DUPLICATES 



MIG-BCCN-AREA 

SET 

CALC 

MIG-DATE-BCCN 
MIG-PGMR-BCCN 
MIG-SYST-BCCN 
^CO MIG-IXBCCN 

DOZ -^MIG-BCCN-ENTY 

DATA ITEM 

05 MIG-BCCN-NUMBER 

SET CONTROL 
"^SET CONTROL 




OFFSET 




0 PCT 


FOR 


TYPE 


NEXT 


PRIOR 


OWNER 


MEMBER 


1 


2 




MEMBER 


3 


4 


5 


MEMBER 


6 


7 


8 


MEMBER 


11 


12 


13 


INDEX MEMBER 


14 






OWNER 


9 


10 





NOT ALLOWED 

100 PCT 



ITEM 
ITEM 
ITEM 
ITEM 



662 



660 S^"^ CONTROL 

SET CONTROL 

05 MIG-BCCN-STATUS 

05 MIG-BCCN-START-DATE 

05 MIG-BCCN-CANCEL-DATE 

05 MIG-BCCN-CV2-DATE 

05 MIG-BCCN-CVl-DATE 

05 MIG-BCCN-APPLICATION 

05 MIG-BCCN-COMMENTS 

10 MIG-BCCN-COMMENT-LINE 

05 MIG-BCCN-OPEN-TYPE 

05 MIG-BCCN-30B 

05 MIG-BCCN-JOBID 

05 MIG-BCCN-APPROVED 

05 MIG-BCCN- PROMOTED 

05 MIG-8CCN-APP-DATE 

05 MIG-BCCN-APP-TIME 

05 MIG-BCCN- PRO-DATE 

05 MIG-BCCN- PRO-TIME 

05 MIG-BCCN-FILLER 
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. . REDEFINES 
DISPLAY 


. USAGE. . . VALUE 

9(5) 


, PICTURE. 


. . STRT 
1 


LGTH 
5 


FOR 


CALC 


ASC DUP 


NOT ALLOWED 


FOR 


MIG-DATE-BCCN 


DSC DUP 


NOT ALLOWED 


FOR 


MIG-PGMR-BCCN 


DSC DUP 


NOT ALLOWED 


FOR 


MIG-IXBCCN 


ASC DUP 


NOT ALLOWED 


DISPLAY 




x(l) 


6 


1 


DISPLAY 




X(8) 


7 


8 


DISPLAY 




X(8) 


15 


8 


DISPLAY 




X(8) 


23 


8 


DISPLAY 




X(8) 


31 


8 


DISPLAY 




X(8) 


39 


8 


DISPLAY 






47 


160 


DISPLAY 


OCCURS 2 


X(80) 


47 


160 


DISPLAY 




x(l) 


207 


1 


DISPLAY 




9(4) 


208 


4 


DISPLAY 




Sii 


212 


8 


DISPLAY 




220 


8 


DISPLAY 




X(8) 


228 


8 


DISPLAY 




X(8) 


236 


8 


DISPLAY 




X(6) 


244 


6 


DISPLAY 




X(8) 


250 


8 


DISPLAY 




X(6) 


258 


6 


DISPLAY 




X(6) 


264 


6 



66 



J 



64 



-RECORD NAME MIG-BCNENT RLGTH= 

RECORD VERSION 0001 DLGTH= 

RECORD ID 1006 KLGTH= 

RECORD LENGTH FIXED DSTRT= 

LOCATION MODE VIA SET ' MIG-BCCN-ENTY 

WITHIN MIG-BCCN-AREA OFFSET 

DBKEY POSITIONS SET TYPE 

MIG-BCCN-ENTY MEMBER 
MIG-ENTY-ENTY MEMBER 

DATA ITEM REDEFINES. USAGE... V 

05 MIG-BCCN-ENTITY-KEY DISPLAY 
10 MIG-BCCN-ENTITY-NAME DISPLAY 

SET CONTROL ITEM FOR 

10 MIG-BCCN-ENTITY-VERSION DISPLAY 

SET CONTROL ITEM FOR 

05 MIG-BCCN -ENTITY DISPLAY 

SET CONTROL ITEM FOR 

05 MIG-BCCN-XREF DISPLAY 
05 MIG-ENTY- STATUS DISPLAY 
05 MIG-ENTY-PREV-STATUS DISPLAY 
05 MIG-ENTY- PUNCH DISPLAY 
05 MIG-BCCN-ENTITY-FILLER DISPLAY 



88 
64 
24 
24 



DISPLACEMENT 
0 PCT FOR 
NEXT PRIOR OWNER 
12 3 
4 5 6 



0000 



PAGES 
100 PCT 



MIG-BCCN-Em-Y 



MIG-BCCN-ENTY 
MIG-ENTY-ENTY 



PICTURE . 


. STRT 


LGTH 




1 


35 


X(32) 


1 


32 


ASC DUP 


LAST 




9(3) 


33 


3 


ASC DUP 


LAST 




9(5) 


36 


5 


ASC DUP 


NOT ALLOWED 


9(5) 


41 


5 


X(l) 


46 


1 


X(l) 


47 


1 


x(l) 


48 


1 


X(16) 


49 


16 



END OF REPORT 
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*** COBOL SYNTAX METADATA FOR %i<bnsrecordnaine% 

IDMS RECORD : %idmsrecordnaiiie% 

/ *** RELATIONAL TABLE : %tablena2ne% 

V SHORT TABLE ID : %tt% 

^$IF RECORD-IS-CALC 

, $ I F CALC-DUPLICATES -ALLOWED 

/ %idinsrecordnaine% IS STORED CALC DUPS ALLOWED 

I *** DUPS ARE STORED {%idinsstorageinode%) 

O I 4 ~ $ELSE 

\ *** %idinsrecordnaine% IS STORED CALC, DUPS NOT ALLOWED 
'^$END-IF 

*** CALC FIELD(S): (APP BUFFER / DCLGEN FIELD} ^ ^AAA 

O-iyip j$LOOP IDMS-CALC-FIELDS *^ ^ *^ ' 

OlHO< » %idmsfield% / %fiolddclgen%-^ 

^$END-LOOP \ 
$END-IF 3^45 



*** PRIME KEYS OF TABLE: 

$LOOP MEM-PK-KEYS 

» %inenidclgenprefix%%fielddclgen% 

$END-LOOP 

+** 



%idcoldclgen% 
%idcoltable% 



3142 
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ID COL IN TABLE 
*** IN RECORD 

$IF ID-COLUMN-IN-PRIMEKEY 

*** ID COL IS IN PRIME KEYS 

9ELSE 

*** ID COL IS NOT IN PRIME KEYS' 

$END-IF 

$LOOP LIST-ALL-MEMBER 

$IKSERT POWERSKEL DEMO , POWERSKEL DEMO - COBOL MEIA DATA MEMBER 
$END-LOOP 

*+ + 

*** END OF METADATA FOR THIS PROGRAM %today% 

******** + + + + + + + + * + + + * + + + + + + 
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$LOOP LIST-ALL-MEMBER 

$IF LIST-IS-NOT-MANDATORY" 
$IF LI ST- IS -AUTOMATIC 

*** SET MEMBERSHIP SWITCH FOR %LL% TO 

*** 



$ELSE 

*** 
+ ★ * 



MOVE *Y' TO %inemdclgenpre£ix%%mentoelongsflagdclgen% OF %dclgen011evel% . 
SET MEMBERSHIP SWITCH FOR %LL% TO "N" 



MOVE 'N' TO %inenidolgenprefix%%ittfijnbelongsflagdolgen% OF %dalgen011evol% . 
$END-IF "\ 

$END-IF '^l^'^ 

$END-LOOP ^ 



-3140 



Fig. 8 
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$POWERSKEL DEMO , POWERSKEL DEMO - COBOL META DATA MEMBER 

%idmssetname% (SHORT ID IS %11%) 

: %ovrntablenaine% (%owntableshort±d%) 



*** MEMBER IN SET: 
$IF LIST-IS-RECORD-OWNED 

*** OWNER 

$ELSE 

SET HAS NO OWNER 

$END-IF 

*** MEMBERSHIP 
*** 

$IF LIST-HAS-JUNCTION 

PARTICIPATION FLG : 
JUNCTION TABLE 

$ELSE 

$IF LIST-IS-MAHDATORY 
$ELSE 

*** PARTICIPATION FLG ; 
$END-IF 
$END-IF 

$IF LIST-IS-SORTED 

*** SORT FIELDS 
$LO0P IDMS-SORT-FIELDS 

$£ND-LOOP 

$IF LIST-HAS-SEQUENCE 

*** SEQUENCE FIELD IS ; 
$END-IF 
$EKD-IF 

$IF LIST-IS-LINKLIST 

**•*• LINKLIST POINTERS 
*** NEXT: 
*** PRIOR: 
$EMD-IF 



%optormandatory% %autoorxnanual% 

%multiorsingle% 

%storageorder% 

%meindclgenpref ix% %zneiQbelongs f lagdclgen% 
%optdclgenO llevel % ( %opttableshort:id% ) 



%meindcagenpref ix% %inembelongs£lagdclgen% 

( %descorasc% ) %idnisf leld% 
%seqcolvunn% 



%ineindclgenpref ix% %inemnex-tpoint.er% 
%inerodclgenprefix%%nieiiipriorpointer% 
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*** COBOL SYNTAX METADATA FOR MIG-BCCN 

***+****★★********+*★***+****♦*★*********♦***+ 

*** imS RECORD : MIG-BCCN 

•*** RELATIONAL TABLE : MIG_BCCN 
SHORT TABLE ID : G006 

C>ino r*** MIG-BCCN IS STORED CALC, DUPS NOT ALLOWED 

t>\UZ S *** CALC FIELD (S): (APP BUFFER / DCLGEN FIELD) 

C*** » MIG-BCCN-NUMBER / G006-BC-NBR 

*** PRIME KEYS OF TABLE: 

» c;no6-Rc:-NRR 

*** ID COL JIN TABLE : GOO 6 -DBS- iD-COL 

*** IN RECORD : DBS_ID_COL 

*** ID COL IS NOT IN PRIME KEYS 

+ ** 

MEMBER IN SET: MIC-DATE-BCCN (SHORT ID IS P006) 
OWNER : MIG_DATE (GOO 9) 

MEMBERSHIP : OPTIONAL MANUAL 

: SINGLE -MEMBER 
: SORTED- DN 

G005-MIG-DTE-BCCN 
DCLMIG-DATE-BCCN (GOlO) 



5104 



PARTICIPATION FLG 
JUNCTION TABLE 
SORT FIELDS 



6100- 



(DESC) MIG-BCCN-NUMBER 



5106 



MEMBER IN SET: MIG-IXBCCN 
SET HAS NO OWNER 
MF.MRF.RSHTP 



(SHORT ID IS P015) 



SORT FIELDS 



MANDATORY ATJTOMATTC 
SINGLE-MEMBER 
SORTED- DN 

(ASC) MIG-BCCN-NUMBER 



5108 



MEMBER IN SET: MIC-PCMR-BCCN (SHORT ID IS P022) 



OWNER 
{MEMBERSHIP 



PARTICIPATION FLG 
JUNCTION TABLE 
SORT FIELDS 



MIG_PGMR (GO 17) 
OPTIONAL MTUnJUAL 
SINGLE -MEMBER 
SORTED- DN 
G006-PM-BCCN 
DCLMIG-PGMR-BCCN (G018) 

(DESC) MIG-BCCN-NUMBER 
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MEMBER IN SET: MIG-SYST-BCCN (SHORT ID IS P023) 



OWNER 
MF.MRF.RSHTP 



LINKLIST POINTERS 
NEXT: 
PRIOR: 



MIG_SYST (G019) 
MANDATORY AUTOMATTC 
SINGLE -MEMBER 
NEXT 

G006-SY~BCCN-N 
G006-SY-BCCN-P 



5112 



END OF METADATA FOR THIS PROGRAM 03/28/04 



*** SET MEMBERSHIP SWITCH FOR P006 TO "N" 

MOVE 'N' TO G006-MIG-DTE-BCCN OF DCLMIG-BCCN. 
SET MEMBERSHIP SWITCH FOR P022 TO "N" 

MOVE 'N' TO G006-PM-BCCN OF DCLMIG-BCCN. 



Fig. 10 
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*** 



COBOT, SYNTAX MF.TADATA FOR MTG-RCNKNT 



************ 



IDMS KtCOKD : MIG-BCNKNT 

RELATIONAL TABLE : MIG_BCNENT 
SHORT TABLE ID : G007 
PRIME KEYS OF TABLE: 

» C007-BC-NBR 

» G007-D-MIG-BCNENT 

» G007-BC-ENTITY-NAM 

» G007'BC-ENTITY-VERSION 

ID COL IN TABLE : G007-D-MIG-BCNENT 
IN RECORD : D_MIG_BCNENT 
ID COL IS IN PRIME KEYS 



*** 
*** 
*** 

**★ 
*** 
**♦ 
*** 

**♦ 

*** 
*** 
* •* * 
** + 



MEMBER IN SET: 
OWNER 
MEMBERSHIP 



SORT Jr'iKLDS 



MEMBER IN 
OWNER 
MEMBERSHIP 



;et: 



SORT FIELDS 



MIG-BCCN-ENTY (SHORT ID IS P005) 
: MIG_BCCN (G006) 
: MANDATORY AUTOMATIC 
: STNGT.F.-MF.MRF.R 

; SORTED-DL 

: (ASC) MIG-BCCN-ENTITY-NAME 
: (ASC) MIG-BCCN-ENTITY-VERSION 

MIC-ENTY-ENTY (SHORT ID IS POOS) 
: MIG_ENTY (GO 12) 
: MANDATORY AUTOMATIC 
: SINGLE-MEr^ER 
: SORTED-DN 



(ASC) MIG-BCCN-ENTITY 
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END OF METADATA FOR THIS PROGRAM 03/28/04 
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%ldznsrecordnaxne% (%tablenanie%} DEFINITION 



The IDMS record %idinsrecordnaine% is converted to a DB2 table called %tablenaiTie% 

during the conversion process. Throughout the newly generated code that uses the replacement 

table for the %id2Rsrecordnaine% record, a short ID of "%tt%" is used to reference the table. 

$IP RECORD- I S-CALC 

$IF CALC-DUPLIGATES -ALLOWED 

The lUMS record %idmsrecordnaine% was stored CALC with duplicates allowed. hiach IDMS record 
occurrence that has the same CALC key was stored in IDMS as "%idmsstoragemode%" . "DF" indicates 
that the new occurrences are stored "first", before all other occurrences. "DL" indicates that 
the 

new occurrences are stored "last", after all other occurrences. 
$£LS£ 

The IDMS record %idmsrecordnaine% was stored CALC with duplicates not allowed. Each IDMS record 
occurrence with a specified CALC key can appear in the database only once. 



The CALC key fields for the IDMS %idmsrecordnanje% record type are listed belov/. The related 
column name in the new DB2 table {%tablenaine%) which replaces the IDMS field name are listed 
in the second column: 



$LOOP IDMS-CALC-FIELDS 

%id2nsfield% (%fielddclgen%) 

$END-LO0P 

The unique primary key columns for the new %tablenaiBe% table in DB2 are: 



$EMD-IF 



CALC IDMS Field Name (DB2 Column Name) 



DB2 Unique Primary Key 



$LOOP MEM-PK-KEYS 



%inpTnri clgenpref ix% % f ielddclgen% 



$END-LOOP 
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